TITLE Programa das iniciais numa moldura

.MODEL SMALL
.STACK 100h

.DATA
CR            EQU 0Dh
LF            EQU 0Ah
LETRA1        DB  ?
LETRA2        DB  ?
LETRA3        DB  ?
MENSAGEM      DB  'Digite as tres letras inicais do seu primeiro nome: $'
MOLDURA_BORDA DB  CR,LF,'*****$'
MOLDURA_LADOS DB  CR,LF,'*   *$'

.CODE
MAIN PROC

MOV AX,@DATA
MOV DS,AX

LEA DX,MENSAGEM
MOV AH,09h
INT 21h
MOV AH,01h
INT 21h
MOV LETRA1,AL
INT 21h
MOV LETRA2,AL
INT 21h
MOV LETRA3,AL

LEA DX,MOLDURA_BORDA
MOV AH,09h
INT 21h

MOV CX,04h
LEA DX,MOLDURA_LADOS

FAZ_MOLDURA1:
    INT 21h
    LOOP FAZ_MOLDURA1

MOV AH,02h
MOV DL,CR
INT 21h
MOV DL,LF
INT 21h
MOV DL,'*'
INT 21h
MOV DL,LETRA1
INT 21h
MOV DL,LETRA2
INT 21h
MOV DL,LETRA3
INT 21h
MOV DL,'*'
INT 21h

MOV AH,09h
MOV CX,04h

LEA DX,MOLDURA_LADOS

FAZ_MOLDURA2:
    INT 21h
    LOOP FAZ_MOLDURA2

LEA DX,MOLDURA_BORDA
INT 21h

MOV AH,02h
MOV DL,07h
INT 21h

MOV AH,4Ch
INT 21h

MAIN ENDP

	END MAIN